home *** CD-ROM | disk | FTP | other *** search
/ AGA Toolkit '97 / The AGA Toolkit '97.iso / miscellaneous / patch / patch2amitcp_4.3 / bin / anysum next >
Encoding:
Text File  |  1996-09-07  |  331 b   |  18 lines
  1. /*
  2.  * Created: Sat Feb 17 20:07:55 1996 too
  3.  * Last Modified: Sat Mar 30 05:29:13 1996 too
  4.  */
  5. Address 'COMMAND'
  6. Parse Arg SUM' 'PFILE
  7.  
  8. if ~Open(pf, PFILE, 'R') Then
  9.     Do; Say '*** Cannot open file "'PFILE'"'; Exit 10; End
  10.  
  11. do until EOF(pf)
  12.     line = ReadLn(pf)
  13. /*    Say line " " SUM */
  14.     If left(line, 32) = SUM Then Exit 0
  15. End
  16. Exit 5
  17.  
  18.